home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
ETAG.PRG
< prev
next >
Wrap
Text File
|
1996-01-01
|
543b
|
33 lines
PROCEDURE etag
PRIVATE cnt
COUNT TO cnt
GOTO TOP
x = 1
y = 0
DO WHILE x <= 50
IF broker = brok
dummy = aIns(tarray,1)
tarray[1] = pic1
x = x + 1
ENDIF
y = y + 1
IF y < cnt
SKIP
ELSE
EXIT
ENDIF
ENDDO
IF x = 50 .AND. y < cnt
DO BoxW WITH 5,16,9,62
@ 6,18 SAY "The VIEW command is limited to 50 listings."
@ 7,18 SAY "To view the listings for the entire agency,"
@ 8,18 SAY "view each broker's listings separately."
key = InKey(4)
ENDIF
RETURN